<%@ Language=VBScript %> <% If session("agentusername")="" Then ef=True ec="授权非法，有可能是超时造成的。" ElseIf Request("id")<>"" and not IsNumeric(Request("id")) Then ef=True ec="编号必须是数字" end if if not ef then%> <%session("FreeHostCom").FreeHost_WR("html5")%> 　新闻/帮助设置 <%session("FreeHostCom").FreeHost_WR("html6")%> <% Set conn=Server.CreateObject("ADODB.Connection") conn.Open Application("FreeHostDBlink") Set dsnewsone = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_News where id='"&Request("id")&"'" dsnewsone.Open Sql,conn,1,1 if not dsnewsone.eof then title=dsnewsone("title") scon=dsnewsone("con") end if dsnewsone.close %>

网站新闻或公告设置

标题：

Design

UBB模式

VIEW

HTML

自动修正

排队顺序： (数值大排前面)　分类编号：

　　类型：新闻类 checked<%end if%>> 　　　帮助/知识类 checked<%end if%> onClick="document.getElementById('type2b').style.display='none';document.getElementById('type2a').style.display='';"> ( ) 　　内部通知 checked<%end if%> onClick="document.getElementById('type2a').style.display='none';document.getElementById('type2b').style.display='';"> ( )

　　提交<%else%>修改<%end if%>"> <%if Request("id")<>"" then%> <%end if%>

<% Set dsnews = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_News where username='"&session("agentusername")&"' order by id desc" if Request.QueryString ("typeid")<>"" and IsNumeric(Request.QueryString("typeid")) then Sql="Select * from FreeHost.FreeHost_News where username='"&session("agentusername")&"' and typeid='"&Request.QueryString("typeid")&"' order by orderbyid desc" if Request.QueryString ("type1")<>"" and IsNumeric(Request.QueryString("type1")) then Sql="Select * from FreeHost.FreeHost_News where username='"&session("agentusername")&"' and type1='"&Request.QueryString("type1")&"' order by orderbyid desc" if Request.QueryString ("type2")<>"" and IsNumeric(Request.QueryString("type2")) then Sql="Select * from FreeHost.FreeHost_News where username='"&session("agentusername")&"' and type1=1 and type2='"&Request.QueryString("type2")&"' order by orderbyid desc" dsnews.PageSize = 15 dsnews.Open Sql,conn,1,1 %> <% if dsnews.Eof then %>
数据库中不存在相关的记录。 <% else if Request.ServerVariables("QUERY_STRING")<>"" then ask=Split(Request.ServerVariables("QUERY_STRING"), chr(38)&"pn") else ask=Split("freehost=1", "") ask(0)="freehost=lsoft" end if pn=1 if Request.QueryString ("pn")<>"" then pn=Request.QueryString ("pn") If dsnews.RecordCount <> 0 Then dsnews.AbsolutePage = CLng(pn) if clng(pn)<=10 then begini=1 if dsnews.PageCount<=10 then endini=dsnews.PageCount else endini=10 end if end if %> <%if clng(pn)<=10 then%>最新 <%for i=begini to endini if clng(pn)=i then%>[<%=i%>]<%else%>[<%=i%>]<%end if%>　<%next%> <%else%>　最新[1]--[10]　　现在是第[<%=pn%>]页　共<%=dsnews.PageCount%>页　<%end if%><%If Clng(pn)>1 Then%>上一页 <%End If%>|<%If Clng(pn)下一页 <%End If%> 新闻类帮助类：域名类虚拟主机类邮箱类数据库类 IDC类网站建设类付款类 VPS类其他类 <% For N=1 To dsnews.PageSize If dsnews.RecordCount=0 Then Exit For %> <% If clng(pn)=dsnews.PageCount Then I = dsnews.RecordCount - (dsnews.PageCount-1) * dsnews.PageSize If N=I Then Exit For End If dsnews.movenext Next%>

编号	一级类型	二级类型	顺序号	分类号	标题	时间	操作
<%=dsnews("id")%>	" target=_blank> <%if dsnews("type1")=0 then%> 新闻类 <%elseif dsnews("type1")=1 then%> 帮助类 <%elseif dsnews("type1")=2 then%> 内部通知类 <%end if%>	" target=_blank> <%if dsnews("type1")>0 then%> <%if dsnews("type2")=0 then%> 域名类 <%elseif dsnews("type2")=1 then%> 虚拟主机类 <%elseif dsnews("type2")=2 then%> 邮箱类 <%elseif dsnews("type2")=3 then%> 数据库类 <%elseif dsnews("type2")=4 then%> IDC类 <%elseif dsnews("type2")=5 then%> 网站建设类 <%elseif dsnews("type2")=6 then%> 付款类 <%elseif dsnews("type2")=7 then%> 其他类 <%elseif dsnews("type2")=100 then%> 全部用户 <%elseif dsnews("type2")=101 then%> 直接用户 <%elseif dsnews("type2")=102 then%> 代理名下用户 <%elseif dsnews("type2")=103 then%> 全部代理 <%elseif dsnews("type2")=104 then%> 直接代理 <%elseif dsnews("type2")=105 then%> 子代理 <%end if%> <%end if%>	" target=_blank><%=dsnews("orderbyid")%>	" target=_blank><%=dsnews("typeid")%>	" target=_blank><%=dsnews("title")%>	<%=dsnews("posttime")%>	">修改 ">删除

<%end if dsnews.close set dsnews=nothing%>
列出全部新闻的链点为：/style/info/listnews.asp <%session("FreeHostCom").FreeHost_WR("html7")%> <%end if if ef then Response.Redirect "e.asp?e="&ec end if%>